home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 2 #5
/
Commodore_Disk_User_Vol.2_5_1989_-.d64
/
border scroll
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
945b
|
33 lines
1 poke53280,14:poke53281,6:poke646,14
5 a=a+1:ifa=1thenload"a.code",8,1
10 sys16384:clr : rem 1st always
12 @3:" [215]elcome to [162][194][207][210][196][197][210] [211][195][210][207][204][204][162] [212]hankyou [202]ason for [162][194][207][210][196][197][210] [211][208][210][201][212][197][162] "
14 print"[147][194]order [211]prite is easy to use, and"
16 print"once you have read the text, this"
18 print"short program will familiarise you"
20 print"with the commands available,"
22 print"enabling you include scrolling texts"
24 print"in your own programs."
26 print"[212]he scroll can be stopped"
28 gosub100:@0
30 print"[210]estarted"
32 gosub100:@3
34 print"[212]he colour can be changed"
36 forj=0to16:%j:fork=0to100:nextk,j
38 print" [212]he message can be changed":_
40 @15:" press [211][208][193][195][197] [194][193][210] ":&
42 forj=0to200:geta$:ifa$=" "then46
44 next:goto40
46 _:" [200]appy scrolling ":@3
48 print"[217]ou can increase it's speed"
50 gosub100
52 forj=3to15:@j:fork=0to100:nextk,j
54 print"[196]ecrease it"
56 gosub100
58 forj=15to1step-1:@j:fork=0to150:nextk,j:&
60 end
65 :
100 poke198,0:print"[208]ress space bar"
102 geta$:ifa$<>" "then102
104 return